home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / e_to_l / filaware / fdtest1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  3.2 KB  |  114 lines
  1. unit Fdtest1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Fdmemo, Fdedit;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     FileMgrDropEdit1: TFileMgrDropEdit;
  12.     FileMgrDropMemo1: TFileMgrDropMemo;
  13.     GroupBox1: TGroupBox;
  14.     chkAcceptFiles1: TCheckBox;
  15.     chkAutoClear1: TCheckBox;
  16.     chkAutoFill1: TCheckBox;
  17.     Label1: TLabel;
  18.     lblNumberDropped1: TLabel;
  19.     GroupBox2: TGroupBox;
  20.     chkAcceptFiles2: TCheckBox;
  21.     chkAutoClear2: TCheckBox;
  22.     chkAutoFill2: TCheckBox;
  23.     Label3: TLabel;
  24.     lblNumberDropped2: TLabel;
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure chkAcceptFiles1Click(Sender: TObject);
  27.     procedure chkAutoClear1Click(Sender: TObject);
  28.     procedure chkAcceptFiles2Click(Sender: TObject);
  29.     procedure chkAutoFill1Click(Sender: TObject);
  30.     procedure chkAutoClear2Click(Sender: TObject);
  31.     procedure chkAutoFill2Click(Sender: TObject);
  32.     procedure FileMgrDropEdit1FileDrop(Sender: TObject);
  33.     procedure FileMgrDropMemo1FileDrop(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   Form1: TForm1;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. procedure TForm1.FormCreate(Sender: TObject);
  48. begin
  49.      chkAcceptFiles1.Checked := FileMgrDropEdit1.AcceptFiles;
  50.      chkAutoClear1.Checked := FileMgrDropEdit1.AutoClear;
  51.      chkAutoFill1.Checked := FileMgrDropEdit1.AutoFill;
  52.      lblNumberDropped1.Caption := intToStr(0);
  53.  
  54.      chkAcceptFiles2.Checked := FileMgrDropMemo1.AcceptFiles;
  55.      chkAutoClear2.Checked := FileMgrDropMemo1.AutoClear;
  56.      chkAutoFill2.Checked := FileMgrDropMemo1.AutoFill;
  57.      lblNumberDropped2.Caption := intToStr(0);
  58.  
  59. end;
  60.  
  61. procedure TForm1.chkAcceptFiles1Click(Sender: TObject);
  62. begin
  63.      FileMgrDropEdit1.AcceptFiles := Not FileMgrDropEdit1.AcceptFiles;
  64.      chkAcceptFiles1.Checked := FileMgrDropEdit1.AcceptFiles;
  65. end;
  66.  
  67. procedure TForm1.chkAutoClear1Click(Sender: TObject);
  68. begin
  69.      FileMgrDropEdit1.AutoClear := Not FileMgrDropEdit1.AutoClear;
  70.      chkAutoClear1.Checked := FileMgrDropEdit1.AutoClear;
  71.  
  72. end;
  73.  
  74. procedure TForm1.chkAcceptFiles2Click(Sender: TObject);
  75. begin
  76.      FileMgrDropMemo1.AcceptFiles := Not FileMgrDropMemo1.AcceptFiles;
  77.      chkAcceptFiles2.Checked := FileMgrDropMemo1.AcceptFiles;
  78.  
  79. end;
  80.  
  81. procedure TForm1.chkAutoFill1Click(Sender: TObject);
  82. begin
  83.      FileMgrDropEdit1.AutoFill := Not FileMgrDropEdit1.AutoFill;
  84.      chkAutoFill1.Checked := FileMgrDropEdit1.AutoFill;
  85.  
  86. end;
  87.  
  88. procedure TForm1.chkAutoClear2Click(Sender: TObject);
  89. begin
  90.      FileMgrDropMemo1.AutoClear := Not FileMgrDropMemo1.AutoClear;
  91.      chkAutoClear2.Checked := FileMgrDropMemo1.AutoClear;
  92.  
  93. end;
  94.  
  95. procedure TForm1.chkAutoFill2Click(Sender: TObject);
  96. begin
  97.      FileMgrDropMemo1.AutoFill := Not FileMgrDropMemo1.AutoFill;
  98.      chkAutoFill2.Checked := FileMgrDropMemo1.AutoFill;
  99.  
  100. end;
  101.  
  102. procedure TForm1.FileMgrDropEdit1FileDrop(Sender: TObject);
  103. begin
  104.      lblNumberDropped1.Caption := IntToStr(FileMgrDropEdit1.NumberDropped);
  105. end;
  106.  
  107. procedure TForm1.FileMgrDropMemo1FileDrop(Sender: TObject);
  108. begin
  109.      lblNumberDropped2.Caption := IntToStr(FileMgrDropMemo1.NumberDropped);
  110.  
  111. end;
  112.  
  113. end.
  114.